home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / EDU / M-Q / Math.cpt / Math / card_5655.txt < prev    next >
Text File  |  1990-12-18  |  3KB  |  134 lines
  1. -- card: 5655 from stack: in
  2. -- bmap block id: 6043
  3. -- flags: 0000
  4. -- background id: 2700
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global right, wrong
  9.   put 0 into right
  10.   put right into  field numright
  11.  
  12.   put 0 into wrong
  13.   put wrong into  field numwrong
  14.   click at loc of card field result
  15. end opencard
  16.  
  17.  
  18.  
  19.  
  20.  
  21. -- part 1 (field)
  22. -- low flags: 01
  23. -- high flags: 0000
  24. -- rect: left=231 top=164 right=194 bottom=274
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 65535
  28. -- font id: 3
  29. -- text size: 24
  30. -- style flags: 256
  31. -- line height: 32
  32. -- part name: second
  33.  
  34.  
  35. -- part 2 (field)
  36. -- low flags: 00
  37. -- high flags: 0002
  38. -- rect: left=230 top=207 right=237 bottom=276
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 65535
  42. -- font id: 3
  43. -- text size: 24
  44. -- style flags: 256
  45. -- line height: 32
  46. -- part name: result
  47. ----- HyperTalk script -----
  48. on returnInField
  49.   global right,wrong
  50.  
  51.   if card field result <> (card field first)/(card field second) then
  52.     put "Try again" into card field feedback
  53.     talk card field feedback ,150,150
  54.     put "" into card field result
  55.     put wrong +1 into wrong
  56.     put wrong into field numwrong
  57.   end if
  58.   if card field result = (card field first)/(card field second) then
  59.     put right +1 into right
  60.     put right into field numright
  61.     put "Right" into card field feedback
  62.     talk card field feedback,150,150
  63.  
  64.     put round of random of 9 into card field second
  65.  
  66.     put (round of random of 9)*card field second  into card field first
  67.     talk card field first,150,150
  68.     talk "divided by",150,150
  69.     talk card field second,150,150
  70.     put "" into card field result
  71.  
  72.   end if
  73.  
  74.   put "" into card field feedback
  75.   click at the loc of card field result
  76. end returnInField
  77.  
  78.  
  79.  
  80. -- part 4 (field)
  81. -- low flags: 01
  82. -- high flags: 0000
  83. -- rect: left=231 top=127 right=158 bottom=274
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 65535
  87. -- font id: 3
  88. -- text size: 24
  89. -- style flags: 256
  90. -- line height: 32
  91. -- part name: first
  92.  
  93.  
  94. -- part 5 (field)
  95. -- low flags: 01
  96. -- high flags: 0000
  97. -- rect: left=341 top=123 right=149 bottom=463
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 18
  103. -- style flags: 256
  104. -- line height: 24
  105. -- part name: feedback
  106.  
  107.  
  108. -- part contents for background part 6
  109. ----- text -----
  110. test
  111.  
  112. -- part contents for card part 1
  113. ----- text -----
  114. 6
  115.  
  116. -- part contents for card part 4
  117. ----- text -----
  118. 54
  119.  
  120. -- part contents for card part 9
  121. ----- text -----
  122. 0
  123.  
  124. -- part contents for card part 10
  125. ----- text -----
  126. 0
  127.  
  128. -- part contents for background part 22
  129. ----- text -----
  130. 0
  131.  
  132. -- part contents for background part 23
  133. ----- text -----
  134. 0